home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2_b.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
3KB
|
141 lines
/********** 半自動通信において掲示板を受信する v1.04a用 *********/
%BulRead{
var curline[4];
var rflg[3];
rflg:={No};
curline:=@nolmemo(1);
%prompt {\n}|@tail(@laststr,{\n});
type({SET PAGE OFF\n});
wait(30,{TimeOut},prompt);
loop({
case(@getchar(@memo(1,curline,1),1,1)={*},{Yes},{
type(curline-1|{,});
rflg:={Yes};
});
curline:=curline-1;
im(curline>1);
});
case(rflg,
{Yes},{ type(@xc({08}));
wait(1);
receive(ForumDir|{\bul}|{.log});
type({\n});
loop({
wait({120},{TimeOut;
},{\nnext>},{
type({\n}); im({Yes});
},{\n>},{
wait(5,{im({No})},{\n},{im({Yes})});
});
});
stoprec;
});
};
%BulMark{
mclear(2);
case(tarline>1,
{Yes},{
%tar @memo(1,tarline,1);
case(@getchar(tar,1,5)<>{more>} &&
@getchar(tar,1,2)<>{>},
{Yes},{
madd(2,@memo(1,1,tarline-1));
case(@getchar(tar,1,1)={*},
{Yes}, {madd(2,{ });
},{No},{madd(2,{*});
});
madd(2,@getchar(tar,2,80));
case(tarline<@nolmemo(1),{Yes},{
madd(2,@memo(1,tarline+1))
});
mopen(1);
mclose(3);
});
});
};
%BulTitl{
var tarline[4];
stoprec;
mclear(1);
mclear(2);
madd(1,
{ 読みたいものをダブルクリックまたはPF3で指示して下さい(二度選択で取消)\n});
mread(TitleF,2);
madd(1,@memo(2,4));
mclear(2);
footnote({終了 読む 選択},{b});
loop({
mopen(1,0,21,639,459,{r});
curline(tarline);
loop({ waitx(1000);
im(@xtype!=1 && @xtype<100 || @xlinenum<0)
});
tarline:=@xlinenum;
mclose(1);
case(@PFK(@xtype),
1,{ BulMark; im({Yes});
},101,{ mopen(1); mclose(2); im({No});
},103,{ mopen(1); mclose(2); BulRead; im({No});
},105,{ BulMark; im({Yes});
}, ,{ im({Yes});
});
});
footnote({});
};
%BulProc{
var cont[3];
rec2(TitleF);
type({READ\n});
loop({
wait(180,{im({No});
},{\nmore>},{
loop({
select({処理を選択してください},
999,{im({Yes});
},{ 続きを見る },{
type({\n});
cont:={Yes};
im({No});
},{ 文書を選択する },{
BulTitl;
cont:={No};
im({No});
},{ 読まない },{
stoprec;
cont:={No};
im({No});
});
});
im(cont);
},{\n>},{BulTitl; im({No});
},{文書はありません-\nBBS>},{stoprec;im({No});
});
});
};
/*
** Main routine
*/
%TitleF ForumDir|{\bultitle}|{.log};
%prompt @tail(@laststr,{\n});
type({BUL\n});
wait(120,{TimeOut},
{◆この機能は本フォーラムではご利用できません◆},{
wait(30,{TimeOut},prompt);
},{\nBBS>},{
type({SET LINE 20\n});
wait(30,{TimeOut},{\nBBS>});
type({SET PAGE ON\n});
wait(30,{TimeOut},{\nBBS>});
BulProc;
type({T\n});
wait(120,{TimeOut},{\nFORUM>});
type({SET PAGE OFF\n});
wait(120,{TimeOut},{\nFORUM>});
mset(1,{n});
});